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system  described  provides  the  capability  of  transforming 
an  ordinary  FORTRAN  V  program  into  a  highly  interactive  program 
The  converted  program  makes  the  user,  the  display  scope,  and 
Is type  console  all  an  integral  part  of  the  execution  of  the 
program.  At  present,  the  system  allows  the  user  to  modify  or 
err.  ieve  current  values  of  variables  in  the  program  or  to  effect 
transfer  of  execution  to  various  statement  numbers  when  commands 
ore  typed.  A  group  of  display  oriented  programs  is  also  described 
which  greatly  simplify  the  job  of  displaying  the  solution  and  aids 
for  finding  the  solution  of  the  problem.  A  SWAP  method  is  used 
to  provide  sharing  of  the  central  processor  between  interactive 
programs  and  the  batch  programs. 


iictoie  proceeding  with  a  discussion  of  the  details  of  the 
graphical  system,  it  would  seem  only  proper  to  first  ask  and  then 
attempt  to  answer  the  following  two  fundamental  questions: 

What  are  the  advantages  of  interaction? 

Why  interact  with  FORTRAN? 

In  regard  to  the  first  question,  the  solution  of  any  problem  on 
i  computer,  especially  one  involving  complex  numerical  computation, 
requires  an  extreme  degree  of  closeness  between  the  programmer  and  the 
algorithm.  Interactive  graphics  places  the  programmer  and  users  of 
_,e  program  in  a  most  advantageous  position.  The  execution  of  the 
Program  n,.ty  be  monitored  and  action  taken  to  help  the  program  and 
the  solution,  or  to  find  xt  more  quickly.  In  additron,  since  tue 
.  .•  can  guide  the  program,  a  much  shorter  logical  path  uo  the  soi~ 
r:. ion  will  be  taken  than  could  feasibly  be  coded  into  a  batch  program. 

’  bo  increase  in  speed  of  problem  solution  may  quite  conceivably  be 
e  form  of  minutes  versus  days,  or  days  versus  months. 

The  answer  to  the  second  question  is  also  highly  pragmatic. 
FORTRAN  is  a  popular  language  which  has  been  in  wide  use  for  severa. 
years.  Most  numerically  oriented  problems  have  been  and  are  presen uj.y 
being  ml,  d  or.  computers  with  FORTRAN  programs.  The  desirability 
interacting  with  this  type  of  program  has  previously  been  pointed  cu¬ 
lt  is  clear  then,  that  FORTRAN,  at  present,  would  be  the  most  desir¬ 
able  choice. 

At  the,"  -iversity  of  Utah,  an  interactive  graphics  laboratory 
has  been  estab  ■  .  and  is  continually  being  expanded  to  provide 
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the  computer  scientist  the  necessary  tools  for  research  and  develop¬ 
ment  into  man/machine  systems.  This  laboratory  is  separate  and 
distinct  from  the  computer  center  and  the  Univac  1108  computer  and 
peripheral  equipment- 

The  equipment  in  the  graphics  laboratory  now  includes: 

An  on-line  Univac  1004  card  reader/printer  and  1108 
console  monitor  which  permit  the  user  to  read-in,  execute 
and  obtain  printed  results  of  his  programs  while  in  the 
graphics  lab. 

A  PDP-8  computer  connected  on-line  to  the  Univac  1108. 

The  PDP-8  acts  as  a  controller  for  the  graphics  equipment 
and  serves  as  the  communications  link  between  this  equipment 
and  the  1108. 

A  model  35  teletype  which  serves  as  the  interactive  keyboard. 

An  IDI  display  scope  which  may  be  used  to  provide  a  window 
into  the  solution  space  of  the  problem  and  may  be  combined 
with  the  teletype  to  form  an  interactive  console  with 
keyboard  and  display. 

Other  equipment  and  equipment  features  such  as  the  Sylvania  tablet, 
IDI  light  pen,  pen  matching  and  tracking,  light  buttons,  etc-,  are 
not  described  in  this  report.  We  thought  it  best  to  limit  our  discussion 
to  our  current  work  and  the  equipment  and  other  associated  software 
necessary  for  the  use  of  our  present  system. 

The  interactive  routines  described  herein  are  taken  from  and 
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built  upon  tliose  described  in  the  Graphics  System  Technical  Report 

(1) .  Those  routines  described  in  Technical  Report  4-1  are  located  on 
FASTRAND  file  $$GS$$  and  the  other_  v,  file  $UUCC$.  Both  FASTRAND 
files  must  be  read  into  the  program  file  through  the  CUR  operations 

(2)  prior  to  execution. 

In  addition  to  generating  displays  and  handling  teletype  input 
and  output,  the  set  of  routines  includes  those  which  establish  the 
modes  of  operation  and  interaction.  The  first  such  routine  is  RELOAD. 
This  routine  must  be  called  only  once  and  before  any  others  described 
below.  Its  function  is  to  initialize  the  graphics  system  and  to  type 
out  a  sign- on  message  on  the  teletype  console. 

Hardware  interrupts  from  the  teletype,  light  pen,  and  Sylvan  la 
•blet  are  saved  by  the  graphics  system  in  the  1108,  They  are  then 
recognized  and  activated  as  software  interrupts  by  the  user's  program 
through  subroutine  IDLE.  The  name  IDLE  is  a  misnomer,  for  its  function 
is  to  check  if  any  interrupts  have  been  received  and  then  to  transfer 
control  according  to  the  type  of  interrupt.  If  it  is  a  character 
interrupt  from  the  teletype,  then  program  control  will  be  passed  to 
the  instruction  set  specified  by  a  call  to  the  subroutine  CHRINT 
(N , $STMT ) . 

The  characters,  STMT,  denote  a  FORTRAN  statement  number  defined 
in  the  user's  program  at  which  the  interrupt  will  be  processed  when 
N  characters  have  been  typed.  For  other  interrupt  conditions,  we 
refer  you  to  the  Graphics  System  Technical  Report  (1). 


-4- 


Before  transferring  control  to  the  interrupt  location,  the  sub¬ 
routine  link  parameter  generated  by  CALL  IDLE  is  pushed  into  the 
top  of  a  stack.  Upon  completion  of  handling  an  interrupt,  the  sub¬ 
routine  INTRET  must  be  called  tc  unBtack  the  top  subroutine  ink 
parameter.  This  parameter  is  then  used  to  return  program  control 
to  the  statement  following  the  corresponding  CALL  IDLE  statement. 
Refer  to  page  12  for  an  example  of  the  use  of  CHRINT  and  IDLE. 

Note  that  stacking  the  subroutine  link  parameter  allows  the  user 


to  declare  new  interrupt  statement  numbers  if  necessary  and  to  call 
IDLE  within  his  interrupt  handler.  Care  must  be  taken  in  unstacking 
the  link  parameters  in  the  correct  sequence  through  calls  to  INTRET. 

Swapping  provides  for  use  of  the  1108  only  when  needed  and  allows 
t  to  be  releac.d  to  the  normal  batch  processing  when  not  needed, 
rhe  1108  EXEC  II  system  has  been  modified  to  time  share  the  interactive 
graphics  user  and  batch  processing  stream  for  economic  reasons.  When¬ 
ever  a  call  is  made  to  subroutine  SWAPER(N),  the  user's  program  is 
read  out  of  memory  onto  a  reserved  region  of  an  FH-432  drum  and  the 
current  or  next  batch  stream  program  is  read  off  of  drum  into  memor 
and  is  executed.  At  any  time,  the  graphics  user  may  swap  out  the 
program  currently  being  executed  and  swap  his  own  program  back  in. 

If  N  .  0,  the  user's  program  is  swapped  into  memory  and  executed 
when  the  swap  character  is  typed  at  the  teletype  console.  The  swap 
character  is  declared  by  a  call  to  the  subroutine  SWPCHR('C)  where 
C  denotes  the  swap  character  (usually  a  carriage  return  character, 
0-7-8  punch).  If  N  -  1.  the  swap  occurs  whenever  any  interrupt  occurs 

and  a  swap  character  need  not  be  declared. 
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After  the  initial  swap  of  the  interactive  program  onto  drum,  the 
EXEC  II  system  resumes  tne  normal  batch  processing  mode  and  assumes, 
for  the  most  pant,  that  the  swapped  out  ]ob  is  terminated.  This  results 
in  restricted  servicing  of  the  interactive  program  when  subsequently 
swapped  back  in.  Normal  input  and  output  is  not  allowed  and  will 
cause  an  ENDSWP  condition  on  the  1108  teletype  if  done  other  than 
through  the  subroutine  ARPAIO  (1).  FORTRAN  print/plot  output  may 
be  written  on  a  reserved  FASTRAND  file  and  later  retrieved.  This 
mechanism  is  initialized  by  a  subroutine  SWAPIO,  which  must  be  made 
prior  to  the  first  call  to  the  SWAPER  routine.  All  print/plot 
specifications  subsequent  to  the  call  to  SWAPIO  will  cause  the  corres¬ 
ponding  fieldata  print  lines  and  plot  commands  to  be  written  out 
on  the  FASTRAND  which  can  later  be  retrieved  by  executing  the  pro¬ 
gram  FSTDMP .  Care  must  be  taken  to  dump  this  file  before  the  next 
graphics  user  also  writes  on  it.  Since,  under  EXEC  II,  only  one 
graphics  user  may  be  active  at  a  time,  this  restriction  should  not 

cause  too  much  difficulty. 


Teletype  Routines 

The  following  package  of  subroutines  constitutes  an  extension 
to  FORTRAN  V  in  which  two  new  types  of  variables  may  be  defined.  The 
first  type  is  called  an  "Interaction  variable",  the  value  of  which 
may  be  changed  or  simply  retrieved  by  the  user.  The  second  type  is 
.ailed  a  "Command  variable"  which,  when  typed,  causes  transfer  of 
execution  to  a  statement  number  in  the  program  Command  variables 
are  also  interaction  variables. 
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A  command  variable  is  an  interaction  variable  which  is  further 


declared  in  a  call  to  subroutine  JUMPS. 
NAMELIST /NAME/VAR1,  VAR2 ,  VARN 

CALL  SETLST 
READ  (5, NAME) 


CALL  JUMPS  ( ' NAME ' , $  STMT 1 ,  $STMT2,  $STMTM) 


In  the  above  example,  M  <_  N.  The  call  to  JUMPS  declares  the 
first  M  variables  appearing  in  namelist  NAME  to  be  command  variables. 
When  VAR]  is  typed,  1  <  I  <_  M,  the  program  transfers  to  STMTl  in  the 


program. 

Finally,  whenever  the  teletype  is  to  be  interrogated,  a  call  to 
subroutine  TTY  is  made.  Usually,  the  call  will  be  the  character 
interrupt  processing  location  specified  in  a  call  to  CHRINT  as  demon¬ 
strated  by  the  following  example: 


LOGICAL  FLAG 
DIMENSION  I  (10,10) 

NAMELIST/NAME/ PLOT,  STOP,  A,  GO,  I,  J,  FLAG 
CALL  SETLST 
READ  (5, NAME) 

CALL  JUMPS  ('NAME',  $10,  $20,  $30,  $40) 

CALL  CHRINT  (1,  $5) 

2  CALL  IDL. 


@  DEFINE 

0  INTERACTION 

0  VAR 

@  DEFINE  COMMAND  VARIABLES 

@  INTERRUPT  TO  5  WHEN 
CHAR  IS  TYPED. 

@  WAIT  FOR 
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Namelist  is  a  FORTRAN  V  feature  which  allows  unformatted  input 
and  output  of.  the  variables  declared  in  the  list  (3).  In  order  to 
jmplish  this ,  certain  information  regarding  each  variable  must  be 
kept  in  core  at  execution  time.  It  is  the  presence  of  this  information 
which  makes  the  interaction  with  variables  possible. 

Unfortunately ,  a  namelist  name  may  only  appear  in  a  READ  or 
WRITE  statement.  For  this  reason,  a  call  to  subroutine  SETLST  must 
be  followed  by  a  READ  or  WRITE  statement  in  order  to  make  the  name¬ 
list  table  of  information  available  to  the  system.  The  following 

example  will  illustrate: 

NAMELIST/ NAME/ VARl ,  VAR2 ,  ...,  VARN 


’ALL  SETLST 
READ  ( 5 , NAME ) 

SETLST  anticipates  that  a  READ  statement  of  the  form  shown  will 
immediately  follow  the  subroutine  call.  The  information  given  in  the 
READ  statement  may  be  thought  of  as  the  argument  list  for  SETLST.  The 
subroutine  returns  to  the  next  statement  folloiwng  READ. 

The  function  of  SETLST  is  to  declare  VAR1 . VARN  as  aval. 

for  interaction  and  takes  into  account  their  individual  variable 
and  dimensions.  SETLST  may  be  called  more  than  once  with  various 

namelist  names. 

An  interaction  variable  is  one  which  has  been  declared  in  a 
NAMELIST  where  the  name  of  that  namelist  has  been  provided 
routine  SETT -3T  at  execution  time. 
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GO  TO  2 


INTERRUPT 


5  CALL  TTY 
CALL  INTRET 
10  CALL  PLOTER  (I,  J) 

CALL  INTRET 
20  CALL  EXIT 
30  NEWVAL  =  A* *3  +  .5 
CALL  INTRET 

40  CALL  COMPUT  (NEWVAL,  FLAG) 
CALL  INTRET 


9 

@  INTERRUPT  OCCURRED,  INTERROGATE  TTY 
@  RETURN  TO  IDLE  LOOP 
@  'PLOT'  COMMAND  WAS  TYPED. 

9  RETURN  TO  IDLE  LOOP 
@  'STOP'  COMMAND  WAS  TYPED. 

9  NEW  VALUE  OF  'A'  WAS  TYPED 
9  RETURN  TO  IDLE  LOOP 
@  'GO'  WAS  TYPED, 

9  RETURN  TO  IDLE  LOOP 


The  above  program  would  call  IDLE  repeatedly  until  a  character 


interrupt  caused  a  transfer  out  of  IDLE  to  statement  number  5  whs 
TY  would  then  be  called.  TTY  would  wait  until  a  carriage  return 
M  was  typed  at  which  time  it  would  scan  the  input  line,  Wnat 
happens  next  would  depend  upon  the  line  that  was  typed.  Some 
examples  will  illustrate: 

±?.1£UJL  EFFECT 


PLOT 

STOP  M 
A«3. 5/* 


.  Transfer  to  statement  10 
.  Transfer  to  statement  20 
.  Value  3.5  is  stored  in  A  then  tram-.  ..er 


to  statement  30. 

.  Value  3.0  is  stored  in  A  then  tranaier 

to  statement  30. 

.  Transfer  to  statement  30. 

. Value  j 7  is  stored  in  I  then  return  ■- o 

statement  after  CALL  TTY. 
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INPL  EFFECT 

j  -  2  jzr  . . Va^ue  2  is  stored  in  J  then  return  to 

statement  after  CALL  TTY. 

I(j#j)  s  40  ^  . Value  40  is  stored  in  where  the 

current  value  of  J  is  used,  then  return 
to  statement  after  CALL  TTY. 


1(1,25)  =  2  A? . *  Characters  '25'  underlined  with 

script  out  of  range)  then  wait  for  more 
input. 

A  _  . Type  out  current  value  of  A.  Do  not  trans 

fer.  Return  to  statement  after  CALL  Y. 
The  abov  list  includes  most  of  the  common  forms  of  input  hut  is  by  i  o 
means  exhaustive.  The  following  rules  govern  the  use  of  TiY: 

Values  must  agree  in  type  with  variable  names  as  da  lined  in 
program.  The  only  exception  is  that  a  floating  point  vanab 
may  be  given  the  value  of  3  in  lieu  of  3.  or  3,0. 

Floatinq  point  input  may  be  either  of  the  F  or  E  format  type. 

Complex  values  are  input  as  two  floating  point  values  separate, 
by  a  comma. 

Subscripts  may  be  either  integer  constants  or  non-subscript 
interactive  integer  variables. 

If  a  label  and  an  equal  sign  are  typed  but  not  a  value,  the 
gram  assumes  retrieval  is  wanted  and  types  out  the  current 

of  the 


variable . 


*  t  C1  y  cha.acter,  is  added  and  the  string  is  stored 

unch  nged  starting  left  adjusted  in  the  location  denoted  by 
ADDR  or  it  is  converted  according  to  the  special  format  who»e 
lo  *t ion  is  denoted  by  FMT  and  stored  in  the  locations  denoted 
oy  VARl  AR2,  and  This  format  is  a  special  for  vc 

different  fro"  those  in  FORTRAN  V.  I-  is  designed  so  that  the 
teletype  user  need  not  memorize  or  otherwise  have  at  his  cgiwi:- 
which  character  positions  (analogous  to  card  columns;  each 
number  or  character  string  must  begin  and  end  in.  The.  -.oimat 
must  be  cont.guous  string  of  characters,  the  first  one  )emc 
le  adjusted  m  e  location  FMT  The  only  admissive 
characters  are  1,  R ,  A,  C,  D,  L  and  *  where: 

I  means  to  mcerpre.  he  next  string  oi  cl arac  ■■  ora  r 

integer , 

R  means  to  interpret  the  next  string  of  characters  -: 
real  (single  precision  floating  point), 

A  means  to  interpret  the  next  string  of  characters  <20 
fieXdata  (alpha-numeric  tot  containing  a  comma), 

t  means  v  r'erpret  the  n~. *. .  two  strings  of  chaiae 
ns  complex,  the  first  as  the  real  part  and  the  sec 
as  t  'ft  imaginary  part, 

»  mentis  to  interpret  the  next  string  of  characters  a& 


i 


co  ble  precision  floating  point, 

means  to  interpret  the  next  string  of  characters 

r.:e  ..ns  n  scan  the  next  s  1 ..  ng  ol  cnaractfeis  anc 
,  .  ,  .  r  ^  FORTRAN  '  const?..  *  ief  initio 


1  c 
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The  user  may  eftect  the  transfer  o£  control  associated  with  a 
command  variable  whether  by  typing  only  the  name  of  the  vanaoi 
or  by  specifying  a  value  for  the  variable. 

Command  variable  transfer  will  not  occur  when  there  is  error 
the  input  string  or  when  the  value  of  the  variable  is  being 

retrieved. 


Whenever  an  error  is  detected  in  the  input, 
be  in  error  is  underlined  with  the  character 
tine  w  ■ 3  for  more  input. 


the  element  found  to 
' * '  ,  and  the  subrou 


input  must  be  followed  by  a  carriage  return. 

More  specialized  teletype  I/O  may  be  handled  with  the  two  roi 
described  below: 

OYPSO'JT  (ADDR)  or  TYP~OUT  (FMT,  VAR1,  VAR2,  ....  1 

Types  out  cn  the  teletype  the  fieldata  character  string  which 

starts  left  adjusted  in  the  location  denoted  by  ADDR  or  the 
string  generated  from  the  conversion  of  the  quantities  in 

locations  VAR1,  VAR2 . VMM  by  means  of  a  FORTRAN  V  fori 

whose  location  is  denoted  by  FMT.  In  either  case,  the  stn 
must  be  terminated  by  the  terminating  character,  A  (11,  7, 


"IN  I^DCR)  or  TYrj.N  (FMT , 
Get1?  t r ** rn  the  teletype 
mr.i/.t  by  a  car.  iage 


VAR1 ,  VAR2 ,  ...  VARM) 

the  next  fieldata  character  string 

return  and  Line  feed  character,  JadC 


u- 1 
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return  ha s  been  typed,  then  a  diagnostic  is  typed  out  and  the 
user  j.s  expected  to  retype  the  line  correctly. 

Example : 

INTEGER  DAY, MON, YR, HR, MIN, SEC 

LOGICAL  WAIT 

CALL  RELOAD 

CALL  SWPCHR  ( ' «  ' ) 

CALL  CHRINT  (1,$100) 

CALL  TYPOUT  ( '  ENTER  DAY  ,  MONTH  YEAR  JT  >  A  '  ) 

WAIT-  'HUE. 

10  CA'f.j  SWAPER  ( 0 ) 

CALL  IDLE 

IF  (WAIT)  GO  TO  10 

100  CALL  TYPIN  ( ' 1AI ' ,DAY ,MON, YR) 

CALL  CHRINT  (1,$200) 

CALL  TYPOUT  ( ' ENTER  HOUR , MINUTE , SECOND  p  >  &  ' ) 

,.10  CALL  SWAPER  (0) 

CALL  IDLE 

IF  (WAIT)  GO  TO  110 
CA  -  J NT RET 

200  CAL*,  TYPIN  ( •  III  *  ,  HR, MIN  ,  SEC ) 

V3A  IT-.  FALSE. 

CALL  ''RET 
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A  comma  is  used  as  the  string  delimiter.  If  the  first  character 
typed  in  is  a  comma  or  if  a  string  of  n  commas  is  typed  in,  then 
a  blank  or  n-1  blanks  (teletype  spaces)  are  assumed  respectively 
The  teletype  carriage  return  and  line  feed  key  is  used  in  lieu 
of  a  last  or  terminating  comma.  The  conversion  procedure  isoiar 
the  •  ext  string  of  w  non  blank  characters  and  converts  and  « -or* 
it  according  to  a  FORTRAN  format  specified  by  the  specie'  forms 
character.  If  the  format  character  is  I,  then  the  FORTRAN  V  for 
mat  spec  ..lied  is  Iw;  R  specifies  Ew.O;  A  specifies  Aw  if  w  <_  f; 
and  irA'j ,  An  if  w  >  6  where  m  =  integral  part  or  w/6  and  I  =  w- 
C  ocifies  Ew , .  0 ,  Ew^.O;  D  specifies  Dw.O;  L  specifies  lv  and 
*  specifies  or.e  of  the  above  according  to  the  constant  t 
If  w  «  0,  then  a  zero,  blank  or  false  value  is  tt oreo  as  rec.-i 
The  first  format  character  specifies  that  the  first  character 
stnng  will  be  converted  as  indicated  and  stored  in  the  *ocat.^ 
denoted  by  VARl,  the  second  in  VAR  2,  etc. 

If  the  string  ABORT  is  typed  in,  the  program  will  be  aborted 
through  the  EXIT  subroutine.  If  another  argument,  $STMT,  is 
added  to  the  calling  sequence,  then  control  will  be  passed  t 
FORTRAN  statement  number  denoted  by  STMT  when  the  string  r 
is  /Pad  m.  lhis  escape  function  is  useful  when  inputting 
Vu  . "ih\e  amount  of  data  in  an  indefinite  loop. 

If  the  number  of  strings  typed  in  is  not  equal  tc  the  numbs 
rpf *  d  in.  the  cal),  statement,  a  string  is  invalid  accc  d 
tin  »at  specified,  or  the  rubout  key  lollc.wed  by  a  cati 
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Display  Routines 

The  IDI  display  scope  permits  the  user  to  display  vectors  and 
characters  on  a  1024  x  1024  grid  which  is  about  eleven  inches  square. 
Horizontal  and  vertical  scaring  is  provided  for  both  vectors  and 
characters  through  control  knobs  on  the  IDI  display  console,  ana  axle* 
the  user  some  flexibility  in  the  size  and  position  o'  his  discla 
The  grid  origin  (0,0)  is  located  in  the  bottom  left  o 
Therefore,  the  range  of  the  grid  coordinates  are  from  0  u  iu23 
and  any  value  specified  outside  of  this  range  is  treated  moiuio  1'  - 

causino  -/rap  around  effect. 

....cracters  may  be  written  in  a  large,  small,  •maj¬ 
or  small  subscript  mode.  The  screen  is  large  enough  for  -  - 
.5  characters  each  when  In  the  large  character  mode.  A  1.  u  *  - 

may  be  thought  of  as  being  in  a  16  *  16  box  which  includes  stm. 

ail  aides. 

The  small  character  mode  permits  128  character,  per  line  but 
nears  to  be  about  3/4  the  height  of  a  large  character.  Thereto  - 
it  rs  probably  best  to  thank  of  the  small  character,  a.  being  in 

box  9  x  12. 

Tl„  following  set  of  routines  are  designed  to  permit  the  t 
to  easily  generate  a  display  on  une  IDI  scope.  This  set  is  bui . 
toon  the  sasic  set  as  described  in  the  Graphics  System  Technics 

Report  ,  it),  yet  provides  nearly  ill  of  -h-  -exibillty  at  a 
shvi  no?  rogt  jamming  of  fort. 
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These  routines  generate  display  information  and  store  it  in  a 
user  declared  array  eiative  to  an  index.  The  array  size  is  limited 
to  2686  words  of  memory,  and  the  index  always  points  to  the  next 
available  location  within  the  array,  starting  at  one.  This  index 
may  be  saved  and  altered  at  any  point  to  permit  insertions  and  re<  cn 
structions  of  part  or  all  of  the  display  file.  The  average  user  wil 

probably  alter  the  latter  part  of  the  display  file  leaving  the  f . rc 

part  unchanged  since  it  may  contain,  for  example,  information  which 
generates  a  fixed  axis,  grid  or  label. 

SETDF  (DF.  INDEX) 

Sets  the  display  file  address  to  the  location  denoted  by  the 
argument  DF  and  the  display  file  index  address  to  that 
by  INDEX.  The  file  and  the  contents  of  INDEX  are  set  to  un_: 
All  subsequent  display  routine  calls  will  reference  the  display 
file  DF  and  its  index  INDEX  and  update  the  index  to  the  next 
available  location  within  the  display  file.  This  routine  must 
be  called  at  least  one*  for  each  display  file  used.  A  third 
argument  may  be  added  to  indicate  the  size  of  the  display 
file  and  is  assumed  to  be  2500  if  omitted. 

R SETDF  (DF,  INDEX) 

Sets  the  display  file  address  to  DF  and  the  display  file  i 
address  to  INDEX.  It  does  not  initialize  flags  or  the  var  e 
INDEX .  The  purpose  of  this  routine  is  to  switch  back  to  5 
viot'b.y  used  display  file  DF  and/or  to  declare  a  previous 
use  display  file  index  denoted  by  INDEX.  If  a  d:.« 

rou*  no  call  follows  which  puts  information  into  the  dis 
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fxl  ,  it  will  de  inserted  relative  to  the  value  of  INDEX. 

Again  a  third  argument  may  be  added  to  mdx.cate  the  display 
file  size  and  is  assumed  to  be  2500  if  omitted. 

ORG (X,Y) 

Sats  the  relative  origin  to  absolute  grid  coordinates  X,Y 
All  subsequent  display  routine  coordinates  will  be  interpreted 
relative  to  X,Y.  Initially,  X,Y  =  0,0. 

POS(X,Y) 

Position  beam  at  grid  coordinates  X,Y. 

VEC  (X ,  Y ) 

From  current  beam  position,  draw  a  vector  to  grid  coordinates 

V  Y . 

DOT  (X  ,  Y ) 

Put  a  dot.  at  grid  coordinates  X,Y. 

DASH (X, Y) 

From  current  beam  position,  draw  a  dashed  vector  to  g^io  c.' 
ordinates  X,Y.  The  dash  is  only  effective  for  vectors  longer 

than  about  20  grid  positions. 

Example : 

DIMENSION  DF  (2000 ) 

i 

CALL  SETDF (DF , I ) 

CALL  ORG  (0,1.00) 

CALL  POS(0,O) 

CALL  VEC (100,0) 
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CALL  DOT  (100,0) 
CALL  POS(0,10) 
CALL  DASH (10 0,0) 


LCHAR 

Set  character  size  to  large 

SCHAR 

Set  character  size  to  small. 

SUP 

Set  character  size  to  small  superscript. 

SUB 

Set  character  size  to  small  subscript. 

WRITAT (X,Y,ADDR)  or  WRITAT (X , Y,FMT , VAK1 ,  . . . ,VARN) 

Write  horizontally  starting  at  relative  grid  coordinates  X,Y 
the  fieldata  character  string  whose  first  character  is  left 
adjusted  in  location  ADDR  and  whose  last  character  is  A  (1- . 
",  8  punch),  or  write  horizonatlly  starting  at  relative  <33 
coordinates  X,Y  the  variables  VAR1,  VAR2 ,  ...,  VARN  convet 
bv  the  format  FMT  into  a  fieldata  character  string  whose 
character  is  a  A  . 

WRITDN  ,ADDR)  or  WRITDN  (X  ,  Y,FMT  ,  VAR1  ,VAR2  ,  .  .  .  ,VARN) 

W:;j.  -  vertically  down  starting  at  grid  coordinates  X,Y  ir. 
sane  manner  as  WRITAT  writes  horizontally.  Mote  this  cuo 
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routine  uses  the  margin,  return  to  margin  and  line  feed  modes 
which  are  also  used  in  the  subroutines  MARGIN,  NXTLIN  and 
SAMLIN  described  below. 

Examp] es : 

DIMENSION  STRING (2)/ 'MESSAGE  1  A*/ 

DIMENSION  FMT1(4)/'  (8HMESSAGE  ,l2,lHr\)'/ 

DIMENSION  FMT2 (6)/' (8HMESSAGE  ,I2,4H  OR  ,F3.1,1H^  )'/ 

1=3 

A--  4 . 0 

0  UCHAR 

CALL  WRITAT (0,500, STRING) 

CALL  WRITAT  (0,400, 'MESSAGE  2^' ) 

CALL  WRITAT  (0, 300, FMT1, I) 

CALL  WRITDN  (0,1000, '  (8EMESSAGE  ,  I2,3H  +  ,F3. 1 , lHA)  1  , 1 , A , 
CALL  WRITAT (0,200, 'X  =10A' ) 

CALL  SUB 

CALL  WRITAT  (0,2 16, ' 14' ) 

CALL  SUP 

CALL  WRITAT (0,230,  '24'  ) 


MARGIN ‘X , Y) 

S  c.1  margin  at  relative  grid  coordinates  X,Y. 

NXTLIN  r»  MXTLN (FMT , VARl ,VAR2 ,  . . . ,  VARN) 

p,.  u  «n  the  margin  and  write  on  the  next  line  the  charac.tu 
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string  at  location  ADDR  or  the  one  generated  by  the  format 
FMT  and  the  variables  VARl,  VAR2,  . . , ,  VARN) .  (See  WRITAT) . 

SAMLIN (ADDR)  or  SAMLN (FMT , VARl ,VAR2 ,  .  ..,  VARN) 

Write  a  line  as  does  NXTLN  except  write  it  at  the  current  line 
position  instead  of  at  the  next  line  position. 

Examples : 


CALL  MARGIN (10, 1000) 

DO  10  1=1,50 
cal:,  lchar 

CALL  NXTLIN  (  1  (3HX  =  ,  13  ,  1HA)  '  ,  I ) 
CALL  SUB 

10  CALL  SAMLIN  '*  (2H  ,  12  ,  UiA)  '  , )  I ) 


SENDF 

If  N  is  the  value  of  the  current  display  file  index,  then  the 
first  N-l  words  of  the  current  display  file  are  sent  to  the 

PDP-8  and  are  displayed  on  the  TU1  scope. 

PLOTDF 

It  W  is  the  value  of  the  current  display  file  index,  then 
first.  N-]  words  of  the  current  display  file  are  sent  to  t 
CAL.  CMP  incremental  plotter  and  a  permanent  hard  copy  cor 

p  ".l  :\q  to  the  display  on  the  IDI  scope  is  produced. 
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